home *** CD-ROM | disk | FTP | other *** search
/ Nautilus 1993 November / Nautilus CD Magazine Volume 3-11 November 1993 Windows Edition.mdf / enter / games / wallpeep / wallpeep.frm (.txt) < prev    next >
Visual Basic Form  |  1992-12-14  |  9KB  |  225 lines
  1. Form1
  2. WallPeeper
  3. XXXXX
  4. XXXXX
  5. XXXXX
  6. XXXXX
  7. XXXXX
  8. XXXXX
  9. XXXXX
  10. XXXXX
  11. Form1%
  12. ShowAllFiles
  13. Show all usable files on C
  14. MS Sans Serif
  15. TileChecked
  16. MS Sans Serif
  17. Picture2
  18. ResizableChecked
  19.     Resizable
  20. MS Sans Serif
  21. Timer1
  22. Picture1
  23. File2
  24. *.bmp;*.ico;*.wmf;*.rle;*.dib
  25. Command1
  26. Set as Wallpaper
  27. Command2
  28. Refresh List
  29. List1
  30. File1
  31. *.bmp;*.ico;*.wmf;*.rle;*.dib
  32. Drive1
  33. Label1
  34. FileMenu
  35. FileExit
  36. E&xit
  37. FileSep
  38.     FileAbout
  39. &About WallPeeper...
  40. GetVersion
  41. GetWindowsDirectory
  42. SystemParametersInfo
  43. wAction
  44. wParam
  45. lParamS
  46. fWinIni6
  47. SPI_SETDESKWALLPAPER
  48. SPIF_UPDATEINIFILE]
  49. SPIF_SENDWININICHANGE
  50. Drive1_Change\
  51. List1
  52.     ListCount
  53. ClearListBox
  54. Form1
  55. Check14
  56. Caption
  57. Drive19
  58. Drivek
  59. Value
  60. False
  61. Dir1K
  62. Screen>
  63. MousePointerL
  64. FillList
  65. Dir1_Change
  66. File1
  67. File1_Click
  68. ShowPicture
  69. FileName
  70.     WallPaper@
  71.     Form_Load.
  72. WinVer/
  73. WinVersion
  74. Form2m
  75. Visible
  76.     ListIndex~
  77. Focus7
  78. Timer1p
  79. Intervalk
  80. FileExit_Click
  81. Check1_Click
  82. ListI
  83. Enabled
  84. SelectInFIleList
  85.     ForeColor
  86. Command2
  87. Dirs"
  88. DirNameh
  89. FindItema
  90. List1_Click
  91. GetNameAndDirR
  92. FName
  93. DName
  94. Form_Unload
  95. Cancel
  96. FileAbout_Click
  97. Form3
  98. List1_DblClick
  99. List1DClick
  100. File1_DblClick
  101. File1DClick$
  102. Timer1_Timer
  103. GetActiveWindowe
  104. Command1_Click
  105. WinPath
  106. BmpFile
  107. Picture1
  108. Image
  109. Form_Resize
  110. Command2_Click
  111. Dir1_Click
  112. Picture1_Click
  113. Label1_Clickw
  114. olddrive
  115. Drive1_GotFocus
  116. SavedDrive
  117. Desktop
  118. Pattern
  119. WINDOWS
  120. WALLVIEW
  121. GridGranularity
  122. IconSpacing
  123. TileWallPaper
  124. WriteProfileStringX
  125.     lpAppNameq
  126.     lpKeyName{
  127. lpString*
  128. Check2
  129. WindowStateI
  130. Check2_Clicku
  131. Loading
  132. GetProfileString
  133.     lpDefault
  134. lpReturnedStringY
  135. nSize
  136. lpRS 
  137. SP1Pos
  138. bgCol6
  139.     BackColor
  140. GetBackgroundColor
  141. OldMousePointer
  142. Check3_Clickc
  143. Check3g
  144. LBWidth
  145. LBHeight
  146. PositionOutline
  147. Picture
  148.     SourcePic
  149. DestinationPic
  150. dwRop
  151. BorderStyle
  152. ShowAllFiles_Click
  153. ShowAllFiles
  154. TileChecked_Click
  155. TileChecked
  156. ResizableChecked
  157. ResizableChecked_Click
  158. ScaleWidth
  159. ScaleHeight
  160. Width
  161. Height
  162. AutoSize
  163.     scalemode
  164. AutoRedraw
  165. Picture2
  166. Window
  167.     OldMouseP
  168. DottedLine
  169. DragPictureTo
  170. Dir2_Change
  171.     PositionX
  172. Kernel
  173. kernel
  174. KernelK
  175. update Win.ini Const
  176. update Win.ini and tell everyone
  177. Command1_Click
  178. WALLPEEP.BMP
  179. [Desktop]=
  180. Pattern = (None)
  181. Wallpaper=C:\WINDOWS\WALLVIEW.BMP
  182. GridGranularity = 0S
  183. IconSpacing = 93
  184. TileWallPaper = 1
  185. Desktop
  186. TileWallPaper
  187. Desktop
  188. TileWallPaper
  189. Command2_Click
  190. Dir1_Change
  191. Dir1_Click
  192. Drive1_Change
  193. Error reading drive 
  194. Drive1_GotFocus
  195. File1_Click
  196. File1_DblClick
  197. FileAbout_Click
  198. FileExit_Click
  199. Form_Load
  200. This program requires Windows 3.1.
  201. Form_Resize
  202. Command1.Top = Scaleheight - Command1.height - 6
  203. Command1.Left = Scalewidth - Command1.width - 66
  204.  minimized
  205. Form_Unload
  206. List1_Click
  207. List1_DblClick
  208. ResizableChecked_Click
  209. Form2.Enabled = Falsee
  210. Form2.Enabled = True
  211. SelectInFIleList
  212. ShowAllFiles_Click
  213. Value As Integer
  214. For I = 1 To List1.ListCount
  215.    If T$ = List1.List(I - 1) Then.
  216.  List1.ListIndex = I - 1
  217.  Exit Fors
  218.    End Ifo
  219. Next I
  220. TileChecked_Click
  221. Value As Integer
  222. DoEvents
  223. DoEvents
  224. Timer1_Timer
  225.